Skip to main content
This forum is closed to new posts and responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:

HCL Software Customer Support Portal for U.S. Federal Government clients
HCL Software Customer Support Portal

Notes/Domino 8 Forum

Notes/Domino 8 Forum
Previous Next
Subject: Auto reply for resigned employees
Feedback Type: Question
Product Area: Domino Admin Client
Technical Area: Administration
Platform: Windows 2003 server
Release: 8.0
Reproducible: Unknown

Dear All,

I would like to set up an auto-reply that in case recipients are already disconnected with the Company, that the agent/auto-reply will inform the sender that employee is no longer connected and instead e-mail or contact another person within the company.

I have found this LS in Lotus 7 forum but really don't have any idea on how to use it and also don't know if this really works:
-------------------------------------------
Sub Initialize

' Initialise
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim docNext As NotesDocument
Dim view As NotesView
Dim rtitem As Variant
Dim collection As NotesDocumentCollection
Dim dateTime As New NotesDateTime( "01/01/2004" )

Set db = session.CurrentDatabase

' Process each new mail document
Set view = db.GetView( "($Inbox)" )
Set doc = view.GetFirstDocument

While Not ( doc Is Nothing )
Set docNext = view.GetNextDocument( doc )

If (doc.Form(0) = "Memo" Or doc.Form(0) = "Reply") Then
If doc.processed(0) <> "" Then
' do nothing - already processed
Else
' Incoming email
Set mailDoc = db.CreateDocument
Set rtitem = mailDoc.CreateRichTextItem("Body")
mailDoc.Subject = "Email Acknowledgement"
mailDoc.Principal = "email address"
mailDoc.Form = "Memo"

Set notesDocument = doc

Call rtitem.AppendText("Due to unforeseen circumstances, there will be no one available to answer technical queries via either e-mail or telephone. ")

Call mailDoc.Send(False, doc.From)

' Call doc.PutInFolder( "1. Processed Emails" )
doc.processed = Now
Call doc.save(True, True)
End If
End If

Set doc = docNext

Wend

End Sub
-------------------------------------------

Will greatly appreciate any advise/help on this.

Thank you in advance.

Edwin G.


Feedback number WEBB7FGCP3 created by ~Tate Dwofooettu on 06/10/2008




Printer-friendly

Search this forum

Member Tools


RSS Feeds

 RSS feedsRSS
All forum posts RSS
All main topics RSS